5 POKE53280,0:POKE53281,0
7 PRINT"[147]    [167][204][186][165] [206][205] [182][205] [181] [206][183]   [182][205][206][181] [206][205] [208][207] [167][204][186][165]
8 [153]"    THEN(null)(null)FN (null)(null) ABS (null)INT (null)(null)   ABS  INT (null)(null) +FN THEN(null)(null)FN
9 PRINT"                  [183]
10 [153],"SYSWRITTEN FOR THE PET BY
14 PRINT,"     TOM TUMEY
20 [153]"SYS   MODIFIED AND ADAPTED FOR THE 64 BY
24 PRINT,"  STEVEN DARNOLD
26 [153],"  P.O. BOX 201
28 PRINT,"  ALEXANDRA, NEW ZEALAND";
90 FORI=1TO2000:NEXT
100 PRINTCHR$(142);:GOTO30000
132 PRINT"":ONWGOSUB210,290,297,300,310,310,310,340,350,350,375
200 RETURN
210 PRINTTAB(25)"[129][162][162][162][162][162][162][162][162]"
220 PRINTTAB(25)"[161]      [221]"
230 PRINTTAB(25)"[129][161]      [221]"
240 PRINTTAB(25)"[129][161]      [221]"
250 PRINTTAB(25)"[129][161]      O"
260 PRINTTAB(25)"[129][161]"
270 PRINTTAB(25)"[161]"
280 PRINTTAB(25)"[161]"
285 RETURN
290 PRINT"":PRINTTAB(25)"[129] [146][184][184][184][184][163][163][163][163]"
292 PRINTTAB(25)"[161]"
293 PRINTTAB(25)"[161]"
294 PRINTTAB(25)"[161]"
295 PRINTTAB(25)"[161]"
296 PRINTTAB(24)"[169][146][161]":RETURN
297 PRINT"[158]                         HANG-MATH    [146]":RETURN
299 -
300 PRINT"[150]":PRINTSPC(29)"   [209]"
305 IFW<>11THENRETURN
310 PRINT"[150]":PRINTSPC(29)"  [206]";
315 IFW=5THENRETURN
320 PRINT"[150] [146]";
325 IFW=6THENRETURN
330 PRINT"[150][205]"
335 IFW<>11THENRETURN
340 PRINT"[150]":PRINTSPC(29)"    [146] "
345 IFW<>11THENRETURN
350 PRINT"[150]":PRINTSPC(29)"  [206] ";
355 IFW=9THENRETURN
360 PRINT"[150][205]"
365 IFW<>11THENRETURN
370 GOTO1000
375 PRINT"";
380 PRINTTAB(30)"  [221]  "
390 PRINTTAB(30)"  [221]  "
395 PRINTTAB(30)"[150]  [209]  "
400 PRINTTAB(30)" [206] [146][205] "
405 PRINTTAB(30)"   [146]  "
410 PRINTTAB(30)" [206] [205] "
420 PRINT"":FORTM=1TO3000:NEXT
1000 PRINT"[147][158]  YOU HAVE A CHOICE:
1005 [153]"  PRESS  P WAIT TO PLAY AGAIN
1010 PRINT"  PRESS  M [146] TO GO TO DISK MENU
1015 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]1015
1020 [140]
1025 [139]R$[178]"P"[167]30060
1030 [153]"LOAD RETURNING TO THE DISK MENU
1035 LOAD"MENU",8
1040 RUN
1045 END
30000 GOTO30020
30001 PRINT"[147]
30002 [153]"SYSSOLVE THE MULTIPLICATION PROBLEMS
30003 PRINT"BY GUESSING THE DIGITS WHICH GO WHERE
30004 [153]"THE ASTERISKS ARE.":[142]
30020 [134] R$(8),F(9,5),A(5,5),P$(5,5),N(5):[129] I[178]1[164]8:[135]R$(I):[130]
30030 [131] EXCELENT,VERY GOOD,GOOD,ABOVE AVERAGE,ABOUT AVERAGE,BELOW AVERAGE
30040 [131] FAIR,POOR
30060 Q[178][187](2)
30070 G[178]0:T[178]0
30080 [143]-GENERATE PUZZLE
30090 [129] I[178]1[164]5:[129]J[178]1[164]5:P$(I,J)[178]"DEF *":A(I,J)[178]999:[130]J,I
30100 [129] I[178]0[164]9:[129] J[178]1[164]5:F(I,J)[178]0:[130]J,I:A(1,1)[178][181](10[172][187](1))
30110 A(2,1)[178][181](10[172][187](1)):A(3,1)[178][181](9[172][187](1))[170]1:A(1,2)[178][181](10[172][187](1))
30120 A(2,2)[178][181](9[172][187](1))[170]1:N(1)[178]100[172]A(3,1)[170]10[172]A(2,1)[170]A(1,1)
30130 N(2)[178]10[172]A(2,2)[170]A(1,2):N(3)[178]A(1,2)[172]N(1):N(4)[178]A(2,2)[172]N(1)[172]10
30140 N(5)[178]N(1)[172]N(2):[129] I[178]5 [164] 1 [169] [171]1:
30150 M[178]10[174](I[171]1):[129] J[178]3[164]5
30160 Q[178]N(J)[173]M:A(I,J)[178][181](Q[170].001):[130] J
30170 [129]J[178]3[164]5:N(J)[178]N(J)[171]A(I,J)[172]M:N(J)[178][181](N(J)[170].9):[130]J:[130]I
30175 [141]30001:[153]"     PRESS SHIFTWAIT TO BEGIN.
30180 A(1,4)=999:A(5,3)=999:B$="  ":W=0:N1=0:N5=7:WAIT653,1:PRINT"[147]":GOTO30330
30190 N1=N1+1:GOTO30220
30200 PRINT"YOUR INPUT IS NO GOOD,TRY AGAIN":FORB=1TO1000:NEXTB:PRINT"[147]":PRINT:PRINT
30210 REM-GET NEXT GUESS
30220 PRINT"":FORI=1TO5:PRINT"                         ":NEXT:PRINT"[145][145][145][145][145][145]"
30230 INPUT"DIGIT";D$:D=VAL(D$):IFD>9THEN30220
30240 INPUT"[158]COLUMN";C$:C=VAL(C$):IFC=0ORC>5THEN30220
30250 N9=N5
30260 IF F(D,C)=0GOTO 30300
30270 PRINT"YOU GUESSED THAT ALREADY":FORB=1TO1000:NEXTB:PRINT"[145]"
30280 PRINT"[145][145][145][145][145][145]
30290 [137] 30220
30300 F(D,C)[178]1:[129]I[178]1[164]5:[139]A(C,I)[179][177]D[137] 30320
30310 P$(C,I)[178][196](D) :N5[178]N5[170]1
30320 [130] I:[139] N9[179]N5 [167] N1[178]N1[171]1
30330 [143]-DISPLAY UPDATED PUZZLE
30350 [153]"ONONONONONONONONONONONONONONONONONONONON"
30360 [153] B$;B$;P$(3,1);P$(2,1);P$(1,1):[153]
30370 [153]B$;B$;B$;P$(2,2);P$(1,2):[153]"FORASCASCASCASCASCASCASCASCASCASCASCASCASCASC"
30380 [153]B$;P$(4,3);P$(3,3);P$(2,3);P$(1,3):[153]
30390 [153]P$(5,4);P$(4,4);P$(3,4);P$(2,4);B$:[153]"FORASCASCASCASCASCASCASCASCASCASCASCASCASCASC"
30400 [153]P$(5,5);P$(4,5);P$(3,5);P$(2,5);P$(1,5)
30430 [153]"SYS ^ ^ ^ ^ ^"
30440 [153]"54321WAIT":[139]N5[178]25[167][153]:[137]31000
30445 [139]W[179][177]N1[167]W[178]N1:[141]132
30450 [137] 30190
31000 [129]I[178]1[164]8:[151]53265,11:[129]J[178]1[164]400:[130]:[151]53265,27:[129]J[178]1[164]500:[130]J,I
31010 [137]1000
32000 [143] WHC 91:03:24